uses SysUtils, DateUtils;


function getLastDay : TDateTime;
begin
  result := EncodeDate(YearOf(Now), MonthOf(Now), MonthDays[IsLeapYear(YearOf(Now)), MonthOf(Now)]);

end;